Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    Dim myFileName As String
    Dim myFno      As Long
    Dim mystr      As String
    Dim myAr       As Variant
    myFno = FreeFile
    'gXɮ
    myFileName = ThisWorkbook.Path & "\" & Me.Name & ".txt"
    If Dir(myFileName) <> vbNullString Then
        Open myFileName For Input As #myFno
        Line Input #myFno, mystr
        Close
        myAr = Split(mystr, ",")
        Me.Top = myAr(0)
        Me.Left = myAr(1)
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
                                CloseMode As Integer)
    Dim myFileName As String
    Dim myFno      As Long
    myFno = FreeFile
    'gXɮ
    myFileName = ThisWorkbook.Path & "\" & Me.Name & ".txt"
    Open myFileName For Output As #myFno
    Print #myFno, Me.Top & "," & Me.Left
    Close
End Sub
